home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side A).do / STYLE PART 2.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  99 lines
  1. 5 HIMEM = 8192
  2. 6  VTAB 4: PRINT "PLEASE WAIT WHILE LOADING"
  3. 7  PRINT  CHR$(4);"BLOAD NOISES"
  4. 10  REM  STYLE PART 2
  5. 14  HOME 
  6. 16  PRINT  CHR$(4);"BLOAD GAME SYMBOLS"
  7. 11000  SPEED= 255
  8. 11010 D$ =  CHR$(4)
  9. 11015  HGR 
  10. 11020  PRINT D$;"BLOAD MSA.PIC"
  11. 11030  POKE  -16304,0
  12. 11040  POKE  -16297,0
  13. 11050  POKE  -16301,0
  14. 11060  POKE  -16300,0
  15. 11070  VTAB 21
  16. 11080  SPEED= 180
  17. 12000  PRINT "WELCOME TO PART TWO! IN THIS SECTION"
  18. 12010  PRINT "WE WILL DISCUSS WHAT YOUR CHOICES "
  19. 12020  PRINT "SUGGEST ABOUT YOUR MANAGEMENT STYLE."
  20. 12030  GOSUB 24000
  21. 12035  PRINT "FIRST LET'S LOOK AT THE CHART ON THE"
  22. 12040  PRINT "LEFT. THIS MAPS A PARTICIPATION AXIS"
  23. 12045  PRINT "AND A SUPERVISION AXIS. "
  24. 12050  GOSUB 24000
  25. 12052 A = A -3:B = B -3:C = C -3
  26. 12053 SP =  INT((A/9) *100)
  27. 12054 SS =  INT((B/9) *100):SC =  INT((C/9) *100)
  28. 12058  PRINT "YOUR SCORE ON THE PARTICIPATORY DIMEN-"
  29. 12060  PRINT "SION WAS ";SP;"%. YOUR SCORE ON THE"
  30. 12063  PRINT "SUPERVISION DIMENSION WAS ";SS;"%."
  31. 12066  PRINT "   THAT PLACES YOU ABOUT HERE....";
  32. 13010  POKE 232,0: POKE 233,86
  33. 13025  ROT= 0: SCALE= 1
  34. 13030  HCOLOR= 5
  35. 13050  GOSUB 30000
  36. 13055  GOSUB 31000
  37. 13060  DRAW 14 AT X,Y
  38. 13100  GOSUB 25000
  39. 14000  GOSUB 24000
  40. 14010  PRINT "ON POLICY ORIENTATION, YOUR SCORE WAS"
  41. 14020  PRINT SC;"%. ON THE CHART ON THE RIGHT THAT"
  42. 14030  PRINT "PLACES YOU ABOUT HERE..."
  43. 14040  GOSUB 32000
  44. 14050  DRAW 14 AT X,Y
  45. 14060  GOSUB 26000
  46. 14070  GOSUB 21000
  47. 15000  PRINT  CHR$(4);"BLOAD CHAIN,A520"
  48. 15010  CALL 520"STYLE PART 3"
  49. 20000  FOR X1 = 1 TO 4000: NEXT : RETURN 
  50. 21000  GOSUB 20000: GOSUB 20000: HOME : VTAB 4: RETURN 
  51. 22000  FOR X1 = 1 TO 1500: NEXT : RETURN 
  52. 23000  PRINT : PRINT : INVERSE : PRINT "TYPE ANY KEY TO CONTINUE.";: NORMAL : GET X1$: HOME : VTAB 6: RETURN 
  53. 24000  FOR D = 1 TO 4000: NEXT : HOME : VTAB 21: RETURN 
  54. 25000 LE = 18:PI = 48:DE = 57: GOTO 27000: REM  CORK   
  55. 26000 LE = 82:PI = 47:DE = 105: REM  PLOPWHIRR   
  56. 27000 P4 =  PEEK(249):P1 =  PEEK(252):P2 =  PEEK(253):P3 =  PEEK(254): POKE 252,LE: POKE 253,FI: POKE 254,DE: POKE 249,PI: CALL 5690
  57. 27010  POKE 252,P1: POKE 252,P2: POKE 253,P3: POKE 249,P4: RETURN 
  58. 30000 A =  INT(A)
  59. 30005  IF A <1  THEN 30070
  60. 30007  IF A >9  THEN 30030
  61. 30010  ON A GOTO 30070,30065,30060,30055,30050,30045,30040,30035,30030
  62. 30020  RETURN 
  63. 30030 Y = 30: RETURN 
  64. 30035 Y = 36: RETURN 
  65. 30040 Y = 43: RETURN 
  66. 30045 Y = 50: RETURN 
  67. 30050 Y = 57: RETURN 
  68. 30055 Y = 62: RETURN 
  69. 30060 Y = 69: RETURN 
  70. 30065 Y = 76: RETURN 
  71. 30070 Y = 83: RETURN 
  72. 31000 B =  INT(B)
  73. 31005  IF B <1  THEN X = 63: RETURN 
  74. 31007  IF B >9  THEN 31126
  75. 31010  ON B GOTO 31070,31077,31084,31091,31098,31105,31112,31119,31126
  76. 31020  RETURN 
  77. 31070 X = 60: RETURN 
  78. 31077 X = 69: RETURN 
  79. 31084 X = 78: RETURN 
  80. 31091 X = 86: RETURN 
  81. 31098 X = 94: RETURN 
  82. 31105 X = 102: RETURN 
  83. 31112 X = 111: RETURN 
  84. 31119 X = 119: RETURN 
  85. 31126 X = 128: RETURN 
  86. 32000 C =  INT(C)
  87. 32005  IF C <1  THEN 32100
  88. 32007  IF C >9  THEN 32900
  89. 32010  ON C GOTO 32100,32200,32300,32400,32500,32600,32700,32800,32900
  90. 32020  RETURN 
  91. 32100 X = 165: RETURN 
  92. 32200 X = 174: RETURN 
  93. 32300 X = 184: RETURN 
  94. 32400 X = 192: RETURN 
  95. 32500 X = 201: RETURN 
  96. 32600 X = 210: RETURN 
  97. 32700 X = 217: RETURN 
  98. 32800 X = 225: RETURN 
  99. 32900 X = 233: RETURN